home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyperJack 1.0.1.cpt / HyperJack 1.0.1 ƒ / HyperJack 1.0.1 / background_8697.xml < prev    next >
Extensible Markup Language  |  1991-08-29  |  5KB  |  14 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>8697</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_8854.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <true /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3169.css" />
  11.     <name></name>
  12.     <script>on gameOverglobal deckOrder, changeBet, drawCard, cardNo-- sort cardNorepeat 4 timesrepeat with i = 1 to 4if item i of cardNo > item (i+1) of cardNo thenput item i of cardNo into tempput item (i+1) of cardNo into item i of cardNoput temp into item (i+1) of cardNoend ifend repeatend repeatput 0 into moneyGetput moneyWin() into moneyGetif moneyGet <> 0 thenplay harpsichord tempo 500 "60h, 64q, 67, 67h, 64h, 67w"if hilite of card button "Bet10bk" is true thenadd last word of line moneyGet of card field "Bet10" to ¬¨card field "Bank"select line moneyGet of card field "Bet10"lock screenelse if hilite of card button "Bet20bk" is true thenadd last word of line moneyGet of card field "Bet20" to ¬¨card field "Bank"select line moneyGet of card field "Bet20"lock screenelse if hilite of card button "Bet30bk" is true thenadd last word of line moneyGet of card field "Bet30" to ¬¨card field "Bank"select line moneyGet of card field "Bet30"lock screenend ifend ifwait 100unlock screenrepeat with i = 1 to 5close window (item i of deckOrder)end repeatrepeat with j = 6 to 10set hilite of card button j to falseend repeatpicture "Deck1", resource, rect, falsepicture "Deck2", resource, rect, falsepicture "Deck3", resource, rect, falsepicture "Deck4", resource, rect, falsepicture "Deck5", resource, rect, falseset rect of window "Deck1" to rect of button "Card1"lock screenshow window "Deck1"set rect of window "Deck2" to rect of button "Card2"show window "Deck2"set rect of window "Deck3" to rect of button "Card3"show window "Deck3"set rect of window "Deck4" to rect of button "Card4"show window "Deck4"set rect of window "Deck5" to rect of button "Card5"show window "Deck5"unlock screenput true into changeBetput false into drawCardend gameOverfunction moneyWinglobal deckOrder, cardNo-- royal flushif ("SA" is in deckOrder) and ("SK" is in deckOrder) and ¬¨("SQ" is in deckOrder) and ("SJ" is in deckOrder) and ¬¨("S10" is in deckOrder) thenreturn 1exit moneyWinelse if ("HA" is in deckOrder) and ("HK" is in deckOrder) and ¬¨("HQ" is in deckOrder) and ("HJ" is in deckOrder) and ¬¨("H10" is in deckOrder) thenreturn 1exit moneyWinelse if ("DA" is in deckOrder) and ("DK" is in deckOrder) and ¬¨("DQ" is in deckOrder) and ("DJ" is in deckOrder) and ¬¨("D10" is in deckOrder) thenreturn 1exit moneyWinelse if ("CA" is in deckOrder) and ("CK" is in deckOrder) and ¬¨("CQ" is in deckOrder) and ("CJ" is in deckOrder) and ¬¨("C10" is in deckOrder) thenreturn 1exit moneyWinend if-- straight flushput "S,H,D,C" into suitrepeat with i = 1 to 4put 0 into sameSuitrepeat with j = 1 to 5if char 1 of item j of deckOrder is item i of suit thenadd 1 to sameSuitend ifend repeatif sameSuit is 5 then exit repeatend repeatif (sameSuit = 5 ) and (item 1 of cardNo = (item 2 of cardNo - 1)) and ¬¨(item 2 of cardNo = (item 3 of cardNo - 1)) and ¬¨(item 3 of cardNo = (item 4 of cardNo - 1)) and ¬¨(item 4 of cardNo = (item 5 of cardNo - 1)) thenreturn 2exit moneyWin-- flushelse if sameSuit = 5 thenreturn 4exit moneyWinend if-- straightif (item 1 of cardNo = (item 2 of cardNo - 1)) and ¬¨(item 2 of cardNo = (item 3 of cardNo - 1)) and ¬¨(item 3 of cardNo = (item 4 of cardNo - 1)) and ¬¨(item 4 of cardNo = (item 5 of cardNo - 1)) thenreturn 6exit moneyWinend if-- pairsput false into firstPairput false into secondPairput false into threeKindrepeat with i = 1 to 4put 1 into sameCardrepeat with j = (i+1) to 5if char 2 of item i of deckOrder is ¬¨char 2 of item j of deckOrder thenadd 1 to sameCardend ifend repeat-- two pairsif sameCard is 2 thenif firstPair is false thenput true into firstPairelseput true into secondPairend ifend ifif sameCard is 3 then-- full houseif firstPair is true thenreturn 5exit repeat-- three of a kindelse if i = 1 thenput true into threeKindelsereturn 7exit repeatend if-- four of a kindelse if sameCard is 4 thenreturn 3exit repeatend ifend repeatif threeKind is true and firstPair is true and secondPair is true thenreturn 5else if threeKind is true and ¬¨(firstPair is false or secondPair is false) thenreturn 7else if firstPair is true and secondPair is true thenreturn 8else if firstPair is true and ((cardNo contains "11,11") or ¬¨(cardNo contains "12,12") or (cardNo contains "13,13") or ¬¨(cardNo contains "14,14")) thenreturn 9elsereturn 0end ifend moneyWin</script>
  13. </background>
  14.